﻿Public Class Reserva
    Private MiFechaInicio As DateTime
    Private MiFechaFinal As DateTime
    Private MiCliente As Cliente
    Private MiPista As Pista

    Public Sub New(FechaInic As DateTime, FechaFin As DateTime, Client As Cliente, Pis As Pista)
        MiFechaInicio = FechaInic
        MiFechaFinal = FechaFin
        MiCliente = Client
        MiPista = Pis
    End Sub


    Public Property FechaInicio As DateTime
        Get
            Return MiFechaInicio
        End Get
        Set(value As DateTime)
            MiFechaInicio = value
        End Set
    End Property

    Public Property FechaFinal As DateTime
        Get
            Return MiFechaFinal
        End Get
        Set(value As DateTime)
            MiFechaFinal = value
        End Set
    End Property

    Public Property Cliente As Cliente
        Get
            Return MiCliente
        End Get
        Set(value As Cliente)
            MiCliente = value
        End Set
    End Property

    Public Property Pista As Pista
        Get
            Return MiPista
        End Get
        Set(value As Pista)
            MiPista = value
        End Set
    End Property
End Class
